home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / MarkReorgNextNew.zprx < prev    next >
Text File  |  1995-03-09  |  549b  |  32 lines
  1. /*
  2.     $VER: MarkReorgNextNew.zprx 1.0 (05.12.94) by Ralph Seichter
  3.     ARexx script for Zodiac's Point.
  4.  
  5.     Adds reorg marker to all new messages in current board and
  6.     then jumps to the next board with new messages.
  7. */
  8.  
  9. PARSE ARG zpPort
  10. ADDRESS VALUE zpPort
  11. OPTIONS RESULTS
  12.  
  13. whichlevel
  14. IF RESULT = "BOARD" THEN DO
  15.     count new
  16.     IF RESULT > 0 THEN DO
  17.         selectmessage new
  18.         markasold
  19.         delete later
  20.     END
  21.     boardmenu
  22.     jumptonew down
  23.     IF RC THEN
  24.         enterboard
  25.     ELSE
  26.         requestnotify 'No new messages below!'
  27. END
  28. ELSE
  29.     requestnotify 'Not inside a board!'
  30.  
  31. /* EOF */
  32.